home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / HAMBANDS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-28  |  3.0 KB  |  100 lines
  1. 10  'HAMBANDS - Ham Band Edges - 21 APR 95 rev.27 SEP 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  IF PROG$=""THEN GO$=EX$ ELSE GO$=PROG$
  4. 40  COMMON EX$,PROG$
  5. 50  CLS:KEY OFF
  6. 60  DIM F(15,3)
  7. 70  L$=" "+STRING$(78,205)
  8. 80  COLOR 15,2,1
  9. 90  PRINT " HAM BAND EDGE & CENTRE FREQUENCIES";
  10. 100  PRINT TAB(57);"by George Murphy VE3ERP ";
  11. 110  COLOR 1,7
  12. 120  PRINT STRING$(80,223);
  13. 130  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  14. 140  COLOR 7,0
  15. 150  '
  16. 160  DATA 1.8, 2, 3.5, 4, 7, 7.3, 10.1, 10.15, 14, 14.35, 18.068, 18.168
  17. 170  DATA 21, 21.45, 24.89, 24.99, 28, 29.7, 50, 54, 144, 148, 222, 225
  18. 180  DATA 420, 450,902, 928, 1240, 1300
  19. 190  '
  20. 200  FOR Z=1 TO 15:READ F(Z,1):READ F(Z,3):NEXT Z
  21. 210  FOR Z=1 TO 15:F(Z,2)=SQR(F(Z,1)*F(Z,3)):NEXT Z
  22. 220  '
  23. 230  '.....screen display
  24. 240  COLOR 0,7
  25. 250  PRINT "        VARPTR                           VARPTR                           VARPTR "
  26. 260  PRINT " 160 m.SOUND<0xB4!>*                    17 m.SOUND<0xB4!>*                     2 m.SOUND<0xB4!>*"
  27. 270  PRINT "  band  CLS                     band  CLS                     band  CLS "
  28. 280  PRINT L$;
  29. 290  PRINT "        VARPTR                           VARPTR                           VARPTR "
  30. 300  PRINT "  80 m.SOUND<0xB4!>*                    15 m.SOUND<0xB4!>*                  1.25 m.SOUND<0xB4!>*"
  31. 310  PRINT "  band  CLS                     band  CLS                     band  CLS "
  32. 320  PRINT L$;
  33. 330  PRINT "        VARPTR                           VARPTR                           VARPTR "
  34. 340  PRINT "  40 m.SOUND<0xB4!>*                    12 m.SOUND<0xB4!>*                   70 cm.SOUND<0xB4!>*"
  35. 350  PRINT "  band  CLS                     band  CLS                     band  CLS "
  36. 360  PRINT L$;
  37. 370  PRINT "        VARPTR                           VARPTR                           VARPTR "
  38. 380  PRINT "  30 m.SOUND<0xB4!>*                    10 m.SOUND<0xB4!>*                   33 cm.SOUND<0xB4!>*"
  39. 390  PRINT "  band  CLS                     band  CLS                     band  CLS "
  40. 400  PRINT L$;
  41. 410  PRINT "        VARPTR                           VARPTR                           VARPTR "
  42. 420  PRINT "  20 m.SOUND<0xB4!>*                     6 m.SOUND<0xB4!>*                   23 cm.SOUND<0xB4!>*"
  43. 430  PRINT "  band  CLS                     band  CLS                     band  CLS "
  44. 440  PRINT L$;
  45. 450  PRINT "  * Centre Frequency = <UNK! {00FB}>(Bottom Edge Frequency x Top Edge Frequency)"
  46. 460  PRINT L$;
  47. 470  COLOR 7,0
  48. 480  '
  49. 490  X=0
  50. 500  FOR Z=3 TO 19 STEP 4
  51. 510  X=X+1
  52. 520  COLOR 15,1
  53. 530  Y=F(X,1)   :GOSUB 800:LOCATE Z,11:PRINT USING U$;Y;:PRINT " MHz "
  54. 540  Y=F(X+5,1) :GOSUB 800:LOCATE Z,39:PRINT USING U$;Y;:PRINT " MHz "
  55. 550  Y=F(X+10,1):GOSUB 800:LOCATE Z,67:PRINT USING U$;Y;:PRINT " MHz "
  56. 560  COLOR 7,0
  57. 570  NEXT Z
  58. 580  '
  59. 590  X=0
  60. 600  FOR Z=4 TO 20 STEP 4
  61. 610  X=X+1
  62. 620  COLOR 7,1
  63. 630  Y=F(X,2)   :GOSUB 800:LOCATE Z,11:PRINT USING U$;Y;:PRINT " MHz "
  64. 640  Y=F(X+5,2) :GOSUB 800:LOCATE Z,39:PRINT USING U$;Y;:PRINT " MHz "
  65. 650  Y=F(X+10,2):GOSUB 800:LOCATE Z,67:PRINT USING U$;Y;:PRINT " MHz "
  66. 660  COLOR 7,0
  67. 670  NEXT Z
  68. 680  '
  69. 690  X=0
  70. 700  FOR Z=5 TO 21 STEP 4
  71. 710  X=X+1
  72. 720  COLOR 15,1
  73. 730  Y=F(X,3)   :GOSUB 800:LOCATE Z,11:PRINT USING U$;Y;:PRINT " MHz "
  74. 740  Y=F(X+5,3) :GOSUB 800:LOCATE Z,39:PRINT USING U$;Y;:PRINT " MHz "
  75. 750  Y=F(X+10,3):GOSUB 800:LOCATE Z,67:PRINT USING U$;Y;:PRINT " MHz "
  76. 760  COLOR 7,0
  77. 770  NEXT Z
  78. 780  GOTO 850
  79. 790  '
  80. 800  U$=               "#####.#"
  81. 810  IF Y<10^3 THEN U$="####.##"
  82. 820  IF Y<10^2 THEN U$="###.###"
  83. 830  RETURN
  84. 840  '
  85. 850  GOSUB 870:CLS:CHAIN GO$
  86. 860  '
  87. 870  'HARDCOPY
  88. 880  GOSUB 990:LOCATE 25,2:COLOR 14,6
  89. 890  PRINT " Press 1 to print screen, 2 to print screen & ";
  90. 900  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  91. 910  Z$=INKEY$:IF Z$="3"THEN GOSUB 990:RETURN
  92. 920  IF Z$="1"OR Z$="2"THEN GOSUB 990:GOTO 940
  93. 930  GOTO 910
  94. 940  FOR QX=1 TO 24:FOR QY=1 TO 80
  95. 950  LPRINT CHR$(SCREEN(QX,QY));
  96. 960  NEXT QY:NEXT QX
  97. 970  IF Z$="2"THEN LPRINT CHR$(12)
  98. 980  GOTO 880
  99. 990  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  100.